﻿
Namespace Medien
	
	Public Class RunningTime
		
		Private _unit As String
		Private _value As Integer
		
		Public Sub New()
		End Sub
		
		Public Sub New(unit As String, value As Integer)
			_unit = unit
			_value = value 
		End Sub
		
		Public Property Unit As String
			Get
				Return _unit
			End Get
			Set(value As String)
				_unit = value
			End Set
		End Property
		
		Public Property Value As Integer
			Get
				Return _value
			End Get
			Set(value As Integer)
				_value = value
			End Set
		End Property
		
	End Class
	
End Namespace
